From: Lars Ingebrigtsen Date: Thu, 27 Jan 2011 10:27:51 +0000 (+0000) Subject: shr.el (shr-put-color): Special-case background colours: Do put them at the blank... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5057 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1d96d9c8b4cd94a5c5bc154bc2f112466e8ed2a8;p=emacs.git shr.el (shr-put-color): Special-case background colours: Do put them at the blank parts at the front of the lines. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 92071dddcb7..9985891e289 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -4,6 +4,9 @@ 2011-01-27 Lars Ingebrigtsen + * shr.el (shr-put-color): Special-case background colours: Do put them + at the blank parts at the front of the lines. + * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an exit hook to nix out all data on readedness on group exit. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 899a5defaeb..4568f45dbb5 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -612,7 +612,8 @@ ones, in case fg and bg are nil." (save-excursion (goto-char start) (while (< (point) end) - (when (bolp) + (when (and (bolp) + (not (eq type :background))) (skip-chars-forward " ")) (when (> (line-end-position) (point)) (shr-put-color-1 (point) (min (line-end-position) end) type color))